ReplicaFilter Property Example

The following example uses the ReplicaFilter property to replicate only customer records from the California region.

Sub ReplicaFilterX()

   ' This example assumes the current open database
   ' is the replica.
   Dim tdfCustomers As TableDef
   Dim strFilter As String
   Dim dbsTemp As Database

   Set dbsTemp = OpenDatabase("Northwind.mdb")
   Set tdfCustomers = dbsTemp.TableDefs("Customers")

   ' Synchronize with full replica
   ' before setting replica filter.
   dbsTemp.Synchronize "C:\SALES\FY96.MDB"

   strFilter = "Region = 'CA'"
   tdfCustomers.ReplicaFilter = strFilter
   dbsTemp.PopulatePartial "C:\SALES\FY96.MDB"

   ' Now remove the replica filter (for example purposes
   ' only).
   tdfCustomers.ReplicaFilter = False
   ' Repopulate the database.
   dbsTemp.PopulatePartial "C:\SALES\DATA96.MDB"

End Sub